gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\MessageEdit.asp
<!--#include file="../Include/CheckLogin.asp"-->
<!--#include file="../Include/liangconn.asp"-->
<!--#include file="../Include/Function.asp"-->
<html>
<body style="background-color:#FFFFFF;">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/Admin.css" rel="stylesheet" type="text/css">
<%
dim Result
Result=request.QueryString("Result")
dim ReplyContent,ReplyTime,ID,MesName,Content,ViewFlag,SecretFlag
dim mLinkman,mQQName,mMobile,AddTime
ID=request.QueryString("ID")
call MesEdit()
%>
<br />
<table class="tableBorder" width="95%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<form name="editForm" method="post" action="MessageEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
<tr bgcolor="#FFFFFF">
<th height="22" colspan="2" sytle="line-height:150%">【审核、回复留言】</th>
</tr>
<tr bgcolor="#FFFFFF">
<td width="20%" align="right" class="forumRow">留言标题：</td>
<td width="80%" class="forumRowHighlight"><input name="MesName" type="text" id="MesName" style="width: 280" value="<%=MesName%>" maxlength="250"> <font color="red">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" class="forumRow">留言内容：</td>
<td class="forumRowHighlight"><textarea name="Content" rows="8" id="Content" style="width: 500"><%=Content%></textarea> <font color="red">*</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" class="forumRow">留言人：</td>
<td class="forumRowHighlight"><%=mLinkman%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" class="forumRow">QQ号码：</td>
<td class="forumRowHighlight"><input name="QQName" type="text" style="width: 180" value="<%=mQQName%>" maxlength="180" readonly></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" class="forumRow">手机号码：</td>
<td class="forumRowHighlight"><input name="Mobile" type="text" style="width: 180" value="<%=mMobile%>" maxlength="180" readonly></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" class="forumRow">当前状态：</td>
<td class="forumRowHighlight"><input name="ViewFlag" type="checkbox" id="ViewFlag" value="1" <%if ViewFlag then response.write ("checked")%>>通过审核</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" class="forumRow">留言时间：</td>
<td class="forumRowHighlight"><input name="AddTime" type="text" style="width: 180" value="<%=AddTime%>" maxlength="180" readonly></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" class="forumRow">回复时间：</td>
<td class="forumRowHighlight"><input name="ReplyTime" type="text" style="width: 180" value="<%=ReplyTime%>" maxlength="180" readonly></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" class="forumRow">回复内容：</td>
<td class="forumRowHighlight"><textarea name="ReplyContent" rows="8" id="ReplyContent" style="width: 500"><%=ReplyContent%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" class="forumRow"></td>
<td class="forumRowHighlight"><input name="submitSaveEdit" type="submit" id="submitSaveEdit" value="保存"> <input type="button" value="返回上一页" onclick="history.back(-1)"></td>
</tr>
</form>
</table>
</body>
</html>
<%
sub MesEdit()
dim Action,rsCheckAdd,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then
set rs = server.createobject("adodb.recordset")
if len(trim(request.Form("MesName")))<1 then
response.write ("<script language='javascript'>alert('请填写留言标题！');history.back(-1);</script>")
response.end
end if
if len(trim(request.Form("Content")))<1 then
response.write ("<script language='javascript'>alert('请填写留言内容！');history.back(-1);</script>")
response.end
end if
if Result="Modify" then
sql="select * from liangjing_Feedback where ID="&ID
rs.open sql,conn,1,3
rs("MesName")=trim(Request.Form("MesName"))
rs("Content")=WoDig.StrReplace(Request.Form("Content"))
if Request.Form("ViewFlag")=1 then
rs("ViewFlag")=Request.Form("ViewFlag")
else
rs("ViewFlag")=0
end If
rs("ReplyContent")=WoDig.StrReplace(Request.Form("ReplyContent"))
if not (trim(request.Form("ReplyContent"))="" or trim(request.Form("ReplyTime"))<>"") then
rs("ReplyTime")=now()
end if
end if
rs.update
rs.close
set rs=nothing
response.write "<script language='javascript'>alert('审核、回复成功！');location.replace('MessageList.asp');</script>"
else
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from liangjing_Feedback where ID="& ID
rs.open sql,conn,1,1
MesName=rs("MesName")
Content=rs("Content")
mLinkman=rs("Linkman")
mQQName=rs("QQName")
mMobile=rs("Mobile")
ViewFlag=rs("ViewFlag")
AddTime=rs("AddTime")
ReplyContent=rs("ReplyContent")
ReplyTime=rs("ReplyTime")
rs.close
set rs=nothing
end if
end if
end sub
%>